Sample Code - OpenSubreport Method

This sample code shows the use of the OpenSubreport Method (Report Object). Modify the following sample code to fit your needs.

Dim test As Integer
Dim crystalreport As CRPEAuto.Report
Dim subrep1 As CRPEAuto.Report
Dim subrep2 As CRPEAuto.Report

Function OpenSubreport(SubreportName As String) As Object

Private Sub OpenSubreport_Click()

'valid subreport
test = 1
Set crystalreport = app.OpenReport(SubReport)
Set subrep1 = crystalreport.OpenSubreport("subauton")
subrep1.Preview

End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com